﻿Public Class times
    Public Shared Function m_in() As DateTime
        '==========morning in==========
        Dim m_in_hh = My.Settings.M_IN_HH
        Dim m_in_mm = My.Settings.M_IN_MM
        Dim m_ins As DateTime = Convert.ToDateTime((m_in_hh + ":" + m_in_mm))
        Return m_ins.ToLongTimeString
    End Function
    Public Shared Function m_out() As DateTime

        '==========morning out==========
        Dim m_out_hh = My.Settings.M_OUT_HH
        Dim m_out_mm = My.Settings.M_OUT_MM
        Dim m_outs As DateTime = Convert.ToDateTime(m_out_hh + ":" + m_out_mm)
        Return m_outs.ToLongTimeString
    End Function
    Public Shared Function a_in() As DateTime
        '==========evening in==========
        Dim a_in_hh = My.Settings.A_IN_HH
        Dim a_in_mm = My.Settings.A_IN_MM
        Dim a_ins As DateTime = Convert.ToDateTime(a_in_hh + ":" + a_in_mm)
        Return a_ins.ToLongTimeString
    End Function
    Public Shared Function a_out() As DateTime

        '==========evening out==========
        Dim a_out_hh = My.Settings.A_OUT_HH
        Dim a_out_mm = My.Settings.A_OUT_MM
        Dim a_outs As DateTime = Convert.ToDateTime(a_out_hh + ":" + a_out_mm)
        Return a_outs.ToLongTimeString
    End Function
End Class
